home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / xmas.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.8 KB  |  140 lines

  1. 100  'CHRISTMAS CHEER 1983
  2. 110  'BY LYNN LONG
  3. 120  'TULSA RBBS
  4. 130  '918-749-0718
  5. 135  KEY(1) ON:ON KEY(1) GOSUB 50000
  6. 140  CLS
  7. 150  KEY OFF
  8. 160  LOCATE 9,20:PRINT CHR$(201);STRING$(38,205);CHR$(187)
  9. 170  FOR X=10 TO 16
  10. 180  LOCATE X,20:PRINT CHR$(186);
  11. 190  LOCATE X,59:PRINT CHR$(186);
  12. 195  NEXT
  13. 197  LOCATE X,20
  14. 200  PRINT CHR$(200);STRING$(38,205);CHR$(188)
  15. 210  LOCATE 12,30
  16. 220  PRINT "CHRISTMAS CHEER 1983"
  17. 230  LOCATE 13,34
  18. 240  PRINT"BY LYNN LONG"
  19. 250  LOCATE 14,35
  20. 260  PRINT"TULSA RBBS"
  21. 270  LOCATE 15,34
  22. 280  PRINT "918-749-0718"
  23. 290  FOR X=1 TO 3000:NEXT
  24. 295  CLS
  25. 296  RESTORE
  26. 300  LOCATE 5,15
  27. 310  PRINT CHR$(201);STRING$(48,205);CHR$(187)
  28. 320  FOR X=6 TO 18
  29. 330  LOCATE X,15
  30. 340  PRINT CHR$(186);
  31. 350  LOCATE X,64
  32. 360  PRINT CHR$(186)
  33. 370  NEXT
  34. 380  LOCATE X,15:PRINT CHR$(200);STRING$(48,205);CHR$(188)
  35. 390  LOCATE 7,22
  36. 400  PRINT"1)  THE TWELVE DAYS OF CHRISTMAS"
  37. 410  LOCATE 8,22:PRINT "2)  JOY TO THE WORLD"
  38. 420  LOCATE 9,22:PRINT "3)  O LITTLE TOWN OF BETHLEHEM"
  39. 430  LOCATE 10,22:PRINT"4)  SILENT NIGHT"
  40. 440  LOCATE 11,22:PRINT"5)  I HEARD THE BELLS ON CHRISTMAS DAY"
  41. 450  LOCATE 12,22:PRINT"6)  OH COME ALL YE FAITHFUL"
  42. 460  LOCATE 13,22:PRINT"7)  OH CHRISTMAS TREE"
  43. 470  LOCATE 14,22:PRINT"8)  WE THREE KINGS"
  44. 480  LOCATE 15,22:PRINT"9)  JINGLE BELLS"
  45. 490  LOCATE 16,21:PRINT"10)  CHRISTMAS IS COMING"
  46. 492  LOCATE 17,21:PRINT"11)  RETURN TO DOS"
  47. 500  LOCATE 20,30:INPUT"SELECT BY NUMBER: ",A$
  48. 505  LOCATE 22,25:PRINT "(Press <F1> to return to menu)"
  49. 510  IF A$ = "1" THEN GOTO 1000
  50. 520  IF A$ = "2" THEN GOTO 2000
  51. 530  IF A$ = "3" THEN GOTO 3000
  52. 540  IF A$ = "4" THEN GOTO 4000
  53. 550  IF A$ = "5" THEN GOTO 5000
  54. 560  IF A$ = "6" THEN GOTO 6000
  55. 570  IF A$ = "7" THEN GOTO 7000
  56. 580  IF A$ = "8" THEN GOTO 8000
  57. 590  IF A$ = "9" THEN GOTO 9000
  58. 600  IF A$ = "10" THEN GOTO 10000
  59. 602  IF A$="11" THEN SYSTEM
  60. 610  CLS
  61. 620  LOCATE 10,20
  62. 630  COLOR 0,7
  63. 640  PRINT"YOU HAVE SELECTED AN OPTION THAT DOES NOT APPEAR ON THE MENU"
  64. 650  FOR X= 1 TO 3000:NEXT
  65. 660  COLOR 7,0
  66. 670  GOTO 295
  67. 1000  PLAY"MF T125 O2C8C8C4F8F8F4E8F8G8A8B-8G8A4.
  68. 1010  PLAY"MF B-8O3C4D8O2B-8A8F8G4F2."
  69. 1020  FOR X=1 TO 4
  70. 1030  PLAY"MF T125 O2C8C8C4F8F8F4E8F8G8A8B-8G8A4.
  71. 1040  GOSUB 1060
  72. 1050  NEXT
  73. 1060  FOR A = 1 TO X
  74. 1070  IF X=4 THEN 1120
  75. 1080  PLAY"MF O3C4O2G8A8B-4"
  76. 1090  NEXT
  77. 1100  PLAY"MF A8B-8O3C4D8O2B-8A8F8G4F2."
  78. 1110  RETURN
  79. 1120  PLAY"MF O3C2D2O2B..O3C1"
  80. 1130  PLAY"MF C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
  81. 1140  FOR X=1 TO 7
  82. 1150  PLAY"MFO2C8C8C8C8F8F8F4E8F8G8A8B-8G8A2"
  83. 1160  FOR A = 1 TO X
  84. 1170  PLAY"MF O3C8C8O2G8A8B-8G8"
  85. 1180  NEXT
  86. 1190  PLAY"MF O3C2D2O2B..O3C1"
  87. 1200  PLAY"MF C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
  88. 1210  NEXT
  89. 1220  PLAY"MF T75P4O2A8B-8O3C4D8O2B-8A8F8G4F2."
  90. 1230  GOTO 295
  91. 2000  PLAY"MF O3D4C#8.O2B16A4.
  92. 2010  PLAY"G8F#4E4D4.
  93. 2020  PLAY"A8B4.B8O3C#4.C#8D4
  94. 2030  PLAY"D8D8C#8O2B8A8A8.G16F#8O3D8D8C#8O2B8A8A8.G16F#8
  95. 2040  PLAY" F#8F#8F#8F#8F#16G16A4.
  96. 2050  PLAY"G16F#16E8E8E8E16F#16G4."
  97. 2060  PLAY" F#16E16D8O3D4O2B8A8.G16F#8G8F#4E4D2"
  98. 2990  GOTO 295
  99. 3000  PLAY"O2B4P64B4P64B4A#4B4O3D4C4O2E4A4G4F#8G8A4D4"
  100. 3010  PLAY"B2.P64B4P64B4P64B4O3E4D4P64D4C4O2E4A4G4F#8"
  101. 3020  PLAY"G8B4A4G2.B4P64B4P64B4A4G4F#2P64F#4P64F#4E4"
  102. 3030  PLAY"F#4G4A4B2.P64B4P64B4P64B4A#4B4O3D4C4O2E4O3"
  103. 3040  PLAY"E4D4O2G4B4.A8G2."
  104. 3990  GOTO 295
  105. 4000  PLAY"ML T70O2F8.G16F8D4.F8.G16F8D4.O3C4P64C8"
  106. 4010  PLAY"O2A4.B-4P64B-8F4.G4P64G8B-8.A16G8F8.G16F8"
  107. 4020  PLAY"D4.G4P64G8B-8.A16G8F8.G16F8D4.O3C4P64C8E-8."
  108. 4030  PLAY"C16O2A8B-4.O3D4.O2B-8F8D8F8.E-16C8O1B-2."
  109. 4990  GOTO 295
  110. 5000  PLAY"ML T150G4P64G4D4G8A8B4O3C8O2B8A4G4P64G4P64"
  111. 5010  PLAY"G4D4G8A8B8O3C#8D4C#4D4P64D4C4O2B4O3E4.D8C4"
  112. 5020  PLAY"O2B4A4P64A4B4.O3C8D4O2A4B4A4G2"
  113. 5990  GOTO 295
  114. 6000  PLAY"ML O2G8.P8G2D4G4A2D2B4A4B4O3C4O2B2A4G8.P16G2F#4E4F#4"
  115. 6010  PLAY"G4A4B4F#2E4.D16.P32D2.P4O3D2C4O2B4O3C2O2B2A4B4G4"
  116. 6020  PLAY"A4F#4.E8D4G8.P16G4F#4G4A4G2D4B8.P16B4A4B4O3C4O2B2"
  117. 6030  PLAY"A4B4O3C4O2B4A4G4F#2G4O3C4O2B2A4.G16.P32G2."
  118. 6990  GOTO 295
  119. 7000  PLAY"MS O2C4F8.F16F8.G8A8.A16A4.A8G8A8B-4E4G4F4P8"
  120. 7010  PLAY"O3C8C8O2A8O3D4.C8C8O2B-8B-4.B-8B-8G8O3C4.O2B-8"
  121. 7020  PLAY"B-8A8A4C4F8.F16F4.G8A8.A16A4.A8G8A8B-4E4G4F4"
  122. 7990  GOTO 295
  123. 8000  PLAY"MF T100O2B4A8G4E8F#8G8F#8E4P8B4A8G4E8F#8"
  124. 8010  PLAY "G8F#8E4P8G8.P16G8A8.P16A8B8.P16B8O3D8C8O2B8A8B8A8G4"
  125. 8020  PLAY"F#8E4P8F#4A2.G8.P16G8P32G4D8G4E8G4P8G8.P16G8P32G4D8G4E8G4P8G8.P16G8"
  126. 8030  PLAY"A4B8O3C4O2B8A4B8G8.P16G8P32G4D8G4E8G4."
  127. 8990  GOTO 295
  128. 9000  READ A$
  129. 9010  IF A$ = "END" THEN 9990
  130. 9020  PLAY "XA$;"
  131. 9030  GOTO 9000
  132. 9040  DATA E,E,E,P8,E,E,E,P8,E,G,C,D,E2,F,F,F3,F8,F,E,E8,G,G,F,D,C2,END
  133. 9990  GOTO 295
  134. 10000  FOR X=1 TO 2
  135. 10010  PLAY"MFT175O3C2O2G4.G8O3C4C2C4C4C4O2B4A4G1O3C4.O2C8C4D4"
  136. 10020  PLAY"E4C4E4G4A2G4F4E1E4.F8E4D4C4O3C4O2G4E4F2G4O1B4O2C1"
  137. 10030  NEXT
  138. 10990  GOTO 295
  139. 50000  RETURN 295
  140.